home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / 1st_111.zip / #1TUTOR.INS < prev    next >
Text File  |  1993-05-23  |  8KB  |  190 lines
  1.         SPARKWARE
  2.  
  3.         DISPLAY OFF
  4.         SCREEN(1,SAVE)
  5.         SAVER 180
  6.  
  7.         BLINK ON
  8.         FILLSCRN(1,1,25,80,32,31,7)
  9.         QPRINT("Welcome to 1stReader!",1,-1,27,7)
  10.         QPRINT("1stReader is an offline mail reading system.  If you are new to bulletin",4,5,-1)
  11.         APRINT("board systems (BBS) then you may not know what '@X??@X00@X(1E,0F)offline@XFF' mail is about.")
  12.         QPRINT("When you call a BBS and read a message, you are reading a message that")
  13.         APRINT("is '@X00@X(1E,0F)online@XFF'.  If you wish to read another message you tell the BBS to")
  14.         QPRINT("fetch the next message for you.  While you are reading messages you are")
  15.         QPRINT("connected to the BBS - and of course if you are calling a BBS that is")
  16.         QPRINT("long distance from you then your call is costing you money too.")
  17.         APRINT("@X00@X(1E,0F)This is where 1stReader can help you@XFF.  1stReader lets you call a BBS",13,5,-1)
  18.         QPRINT("and quickly gather up any new messages posted since your last call.")
  19.         QPRINT("1stReader can also upload any messages that YOU have entered and can")
  20.         QPRINT("also download files that you request (currently only through PCBoard).")
  21.         APRINT("1stReader does all of this @X00@X(9E,8F)VERY@XFF quickly - you can receive over 1,000")
  22.         QPRINT("messages in just a few minutes time.")
  23.         QPRINT("You can also tell 1stReader to call bulletin board systems late at",21,5,-1)
  24.         QPRINT("night when long distance rates are at their lowest...")
  25.         DISPLAY ON
  26.         QPRINT("Press any key to continue...",25,-1,23,7)
  27.         BEEP
  28.         PAUSE
  29.  
  30.         DISPLAY OFF
  31.         FILLSCRN(1,1,25,80,32,31,7)
  32.         BOX(4,5,21,75,78,112,1,1)
  33.         FILLSCRN(5,6,20,74,32,79,112)
  34.         QPRINT("1stReader is...",6,10,-1)
  35.         DISPLAY ON
  36.         QPRINT("Fast!",8,15,-1)
  37.         BEEP
  38.         PAUSE 1
  39.         QPRINT("Easy to use...")
  40.         BEEP
  41.         PAUSE 1
  42.         QPRINT("Flexible...")
  43.         BEEP
  44.         PAUSE 1
  45.         QPRINT("Powerful!")
  46.         BEEP
  47.         PAUSE 1
  48.         APRINT("...and costs less... (@X??@X00@X(4E,70)registration is only $25@XFF)")
  49.         BEEP
  50.         PAUSE 1
  51.  
  52.         DISPLAY OFF
  53.         APRINT("1stReader includes @X??@X00@X(4E,7F)EVERYTHING@XFF you need in order to use offline",14,10,-1)
  54.         QPRINT("mail with today's bulletin board systems.  Other offline mail")
  55.         QPRINT("readers require you to register other utilities in order to")
  56.         APRINT("work.  You would have to spend over @X00@X(CE,F0)$200@XFF to register the")
  57.         APRINT("utilities that come @X00@X(4E,F0)FREE@XFF with your registered 1stReader system.")
  58.         QPRINT("Press any key to continue...",20,-1,71,112)
  59.         DISPLAY ON
  60.         BEEP
  61.         PAUSE
  62.  
  63.         DISPLAY OFF
  64.         FILLSCRN(1,1,25,80,32,31,7)
  65.         QPRINT("Let's show you how easy it is to call a bulletin board system",11,-1,-1)
  66.         QPRINT("using 1stReader",12,-1,-1)
  67.         DIALOG_BOX(1,0,27,1,"       Ok!       ",20,30,112,112,1,116,15)
  68.         DISPLAY ON
  69.         GET(Choice$,1)
  70.         CLEAR_BOXES
  71.  
  72.         DISPLAY OFF
  73.         BLOAD("#1TUTOR.BIN",1)
  74.         SCREEN(2,SAVE)
  75.         DIALOG_BOX(1,0,27,1," Get Mail ",12,21,112,112,0,116,116)
  76.         SCREEN(2,RESTORE)
  77.         BOX(3,6,10,32,31,7,1,1)
  78.         FILLSCRN(4,7,9,31,32,30,7)
  79.         QPRINT("This is the 1stReader",4,9,-1)
  80.         QPRINT("opening screen menu.")
  81.         APRINT("Select '@X??@X00@X(1F,0F)Get Mail@XFF' to")
  82.         QPRINT("get new mail from the")
  83.         QPRINT("currently highlighted")
  84.         QPRINT("system in the menu.")
  85.         DISPLAY ON
  86.         PAUSE 10
  87.         BOX(18,10,22,70,48,7,1,1,"We're not really calling - this is just a demo...")
  88.         PAUSE 5
  89.         SCREEN(2,RESTORE)
  90.         PAUSE 3
  91.         BLIP 1
  92.         PAUSE 2
  93.         BLOAD("#1TUTOR.BIN",2)
  94.         QPRINT("·",10,42,116,112)
  95.         QPRINT("·",11,42,116,112)
  96.         PAUSE 1
  97.         QPRINT("■",10,42,112)
  98.         QPRINT("■",10,44,122,112)
  99.         PAUSE 1
  100.         QPRINT("■",11,42,112)
  101.         QPRINT("■",11,44,122,112)
  102.         PAUSE 1
  103.         PLAY "T140P2O1L2D..MSO2L16CEDFGCFP1"
  104.         PLAY "T255L16O4CCCCCCCCCCCCCCCCCP1"
  105.         PLAY "T255L16O4CCCCCCCCCCCCCCCCCP1L1MBO5D..D#..P8"
  106.         PAUSE 1
  107.  
  108.         CLS(7)
  109.         SLOW(ON,15)
  110.         CURSOR ON
  111.         SHOW "#1TUTOR.1" NOSTOP
  112.         CURSOR OFF
  113.  
  114.         BLOAD("#1TUTOR.BIN",3)
  115.         PAUSE 1
  116.         QPRINT("▓▓▓▓▓",17,27,-1)
  117.         PAUSE 1
  118.         QPRINT("▓▓▓▓▓",17,32,-1)
  119.         PAUSE 1
  120.         QPRINT("▓▓▓▓▓",17,37,-1)
  121.         PAUSE 1
  122.         QPRINT("▓▓▓▓▓",17,42,-1)
  123.         PAUSE 1
  124.         QPRINT("▓▓▓▓▓",17,47,-1)
  125.         PAUSE 1
  126.         QPRINT("▓▓▓▓▓",17,52,-1)
  127.         PAUSE 1
  128.         QPRINT("▓▓▓▓▓",17,57,-1)
  129.         PAUSE 1
  130.         QPRINT("▓▓▓▓▓▓",17,62,-1)
  131.         PAUSE 2
  132.  
  133.         CLS(7)
  134.         SLOW(ON,15)
  135.         CURSOR ON
  136.         SHOW "#1TUTOR.2" NOSTOP
  137.         CURSOR OFF
  138.         PAUSE 3
  139.         SLOW(OFF)
  140.  
  141. :PACKET
  142.         DISPLAY OFF
  143.         FILLSCRN(1,1,25,80,32,31,7)
  144.         QPRINT("We now have a mail packet on file you can read with 1stReader",4,10,-1)
  145.         QPRINT("When you return back to the 1stReader opening menu select",7,10,-1)
  146.         APRINT("'@X??@X00@X(1E,0F)Sparky's Machine'@XFF from the menu.  You'll see your mail packet")
  147.         QPRINT("waiting.  Simply press the ENTER key on your keyboard and you")
  148.         QPRINT("will be able to read the mail packet you just received.")
  149.         QPRINT("If you would like to view any of the 1stReader manuals select",13,10,-1)
  150.         QPRINT("the '1stReader manuals' button and you can choose from a list")
  151.         QPRINT("of manuals supplied with this system.")
  152.         DIALOG_BOX(1,0,0,1," Read this mail packet ",20,10,112,112,1,116,15)
  153.         DIALOG_BOX(2,0,0,2,"   1stReader manuals   ",20,45,112,112,1,116,15)
  154.         DIALOG_BOX(3,1,27,QUIT,"                                     Quit                                       ",25,1,112,112,0,116,112)
  155.         DISPLAY ON
  156.         GET(Choice$,1)
  157.         CLEAR_BOXES
  158.         IF COMPARE(Choice$,2) THEN GOTO MANUALS
  159.         BLOAD("SCREEN.$$$",1)
  160.         EXIT
  161.  
  162. :MANUALS
  163.         DISPLAY OFF
  164.         FILLSCRN(1,1,25,80,32,78,7)
  165.         BOX(2,5,22,75,48,112,1,1)
  166.         DIALOG_BOX(1,0,0,1ST.DOC," Beginner's manual ",3,7,112,7,1,116,15)
  167.         QPRINT("Describes the basic features",3,40,-1)
  168.         QPRINT("of 1stReader.  Read this manual")
  169.         QPRINT("if you are new to 1stReader.")
  170.         DIALOG_BOX(2,0,0,ADVANCED.DOC,"  Advanced guide   ",8,7,112,7,1,116,15)
  171.         QPRINT("Designed for the 'power user'",8,40,-1)
  172.         QPRINT("who wants to get the most out")
  173.         QPRINT("of 1stReader.")
  174.         DIALOG_BOX(3,0,0,INSTALL.DOC,"  Install manual   ",13,7,112,7,1,116,15)
  175.         QPRINT("Documents the 1stReader INSTALL",13,40,-1)
  176.         QPRINT("program.  You can use Install to")
  177.         QPRINT("create add-ins for 1stReader.")
  178.         DIALOG_BOX(4,0,0,SYSOP.DOC,"   Sysop's guide   ",18,7,112,7,1,116,15)
  179.         QPRINT("If you are a sysop of a BBS",18,40,-1)
  180.         QPRINT("then please read this brief")
  181.         QPRINT("manual.")
  182.         DIALOG_BOX(5,1,27,QUIT,"                                     Quit                                       ",25,1,112,112,0,116,112)
  183.         DISPLAY ON
  184.         GET(Manual$,5)
  185.         CLEAR_BOXES
  186.         IF COMPARE(Manual$,"QUIT") THEN GOTO PACKET
  187.         LIST Manual$
  188.         GOTO MANUALS
  189.  
  190.